home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vbasic / receipt.exe / CUSTDLG.FRM < prev    next >
Text File  |  1993-07-22  |  14KB  |  460 lines
  1. VERSION 2.00
  2. Begin Form Form6 
  3.    Caption         =   "Sold To:"
  4.    ClientHeight    =   5235
  5.    ClientLeft      =   1200
  6.    ClientTop       =   1710
  7.    ClientWidth     =   7005
  8.    Height          =   5640
  9.    Left            =   1140
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form6"
  12.    ScaleHeight     =   349
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   467
  15.    Top             =   1365
  16.    Width           =   7125
  17.    Begin CommandButton Command2 
  18.       Caption         =   "Cancel"
  19.       Height          =   375
  20.       Left            =   3720
  21.       TabIndex        =   5
  22.       Top             =   4560
  23.       Width           =   2295
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "OK"
  27.       Default         =   -1  'True
  28.       Height          =   375
  29.       Left            =   960
  30.       TabIndex        =   4
  31.       Top             =   4560
  32.       Width           =   2295
  33.    End
  34.    Begin VBedit BEdit12 
  35.       CellHeight      =   32
  36.       CellWidth       =   22
  37.       CharSet         =   16388
  38.       CombBaseLine    =   24.333
  39.       CombEndHeight   =   8
  40.       CombEndMarker   =   0   'False
  41.       CombHeight      =   4
  42.       FontBold        =   0   'False
  43.       FontItalic      =   0   'False
  44.       FontName        =   "MS Sans Serif"
  45.       FontSize        =   18
  46.       FontStrikethru  =   0   'False
  47.       FontUnderline   =   0   'False
  48.       Height          =   495
  49.       InflateBottom   =   12
  50.       InflateLeft     =   12
  51.       InflateRight    =   12
  52.       InflateTop      =   16
  53.       Left            =   4680
  54.       TabIndex        =   23
  55.       Top             =   3840
  56.       Version         =   268435458
  57.       Width           =   1455
  58.    End
  59.    Begin VBedit BEdit11 
  60.       CellHeight      =   32
  61.       CellWidth       =   22
  62.       CharSet         =   16388
  63.       CombBaseLine    =   24.333
  64.       CombEndHeight   =   8
  65.       CombEndMarker   =   0   'False
  66.       CombHeight      =   4
  67.       FontBold        =   0   'False
  68.       FontItalic      =   0   'False
  69.       FontName        =   "MS Sans Serif"
  70.       FontSize        =   18
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       Height          =   495
  74.       InflateBottom   =   12
  75.       InflateLeft     =   12
  76.       InflateRight    =   12
  77.       InflateTop      =   16
  78.       Left            =   3240
  79.       TabIndex        =   21
  80.       Top             =   3840
  81.       Version         =   268435458
  82.       Width           =   1095
  83.    End
  84.    Begin VBedit BEdit10 
  85.       CellHeight      =   32
  86.       CellWidth       =   22
  87.       CharSet         =   16388
  88.       CombBaseLine    =   24.333
  89.       CombEndHeight   =   8
  90.       CombEndMarker   =   0   'False
  91.       CombHeight      =   4
  92.       FontBold        =   0   'False
  93.       FontItalic      =   0   'False
  94.       FontName        =   "MS Sans Serif"
  95.       FontSize        =   18
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       Height          =   495
  99.       InflateBottom   =   12
  100.       InflateLeft     =   12
  101.       InflateRight    =   12
  102.       InflateTop      =   16
  103.       Left            =   1920
  104.       TabIndex        =   20
  105.       Top             =   3840
  106.       Version         =   268435458
  107.       Width           =   1095
  108.    End
  109.    Begin VBedit BEdit9 
  110.       CellHeight      =   32
  111.       CellWidth       =   22
  112.       CharSet         =   16388
  113.       CombBaseLine    =   24.333
  114.       CombEndHeight   =   8
  115.       CombEndMarker   =   0   'False
  116.       CombHeight      =   4
  117.       FontBold        =   0   'False
  118.       FontItalic      =   0   'False
  119.       FontName        =   "MS Sans Serif"
  120.       FontSize        =   18
  121.       FontStrikethru  =   0   'False
  122.       FontUnderline   =   0   'False
  123.       Height          =   495
  124.       InflateBottom   =   12
  125.       InflateLeft     =   12
  126.       InflateRight    =   12
  127.       InflateTop      =   16
  128.       Left            =   4680
  129.       TabIndex        =   18
  130.       Top             =   3240
  131.       Version         =   268435458
  132.       Width           =   1455
  133.    End
  134.    Begin VBedit BEdit8 
  135.       CellHeight      =   32
  136.       CellWidth       =   22
  137.       CharSet         =   16388
  138.       CombBaseLine    =   24.333
  139.       CombEndHeight   =   8
  140.       CombEndMarker   =   0   'False
  141.       CombHeight      =   4
  142.       FontBold        =   0   'False
  143.       FontItalic      =   0   'False
  144.       FontName        =   "MS Sans Serif"
  145.       FontSize        =   18
  146.       FontStrikethru  =   0   'False
  147.       FontUnderline   =   0   'False
  148.       Height          =   495
  149.       InflateBottom   =   12
  150.       InflateLeft     =   12
  151.       InflateRight    =   12
  152.       InflateTop      =   16
  153.       Left            =   3240
  154.       TabIndex        =   16
  155.       Top             =   3240
  156.       Version         =   268435458
  157.       Width           =   1095
  158.    End
  159.    Begin VBedit BEdit7 
  160.       CellHeight      =   32
  161.       CellWidth       =   22
  162.       CharSet         =   16388
  163.       CombBaseLine    =   24.333
  164.       CombEndHeight   =   8
  165.       CombEndMarker   =   0   'False
  166.       CombHeight      =   4
  167.       FontBold        =   0   'False
  168.       FontItalic      =   0   'False
  169.       FontName        =   "MS Sans Serif"
  170.       FontSize        =   18
  171.       FontStrikethru  =   0   'False
  172.       FontUnderline   =   0   'False
  173.       Height          =   495
  174.       InflateBottom   =   12
  175.       InflateLeft     =   12
  176.       InflateRight    =   12
  177.       InflateTop      =   16
  178.       Left            =   1920
  179.       TabIndex        =   14
  180.       Top             =   3240
  181.       Version         =   268435458
  182.       Width           =   1095
  183.    End
  184.    Begin VBedit BEdit6 
  185.       CellHeight      =   32
  186.       CellWidth       =   22
  187.       CharSet         =   16388
  188.       CombBaseLine    =   24.333
  189.       CombEndHeight   =   8
  190.       CombEndMarker   =   0   'False
  191.       CombHeight      =   4
  192.       FontBold        =   0   'False
  193.       FontItalic      =   0   'False
  194.       FontName        =   "MS Sans Serif"
  195.       FontSize        =   18
  196.       FontStrikethru  =   0   'False
  197.       FontUnderline   =   0   'False
  198.       Height          =   495
  199.       InflateBottom   =   12
  200.       InflateLeft     =   12
  201.       InflateRight    =   12
  202.       InflateTop      =   16
  203.       Left            =   4440
  204.       TabIndex        =   13
  205.       Top             =   2640
  206.       Version         =   268435458
  207.       Width           =   1695
  208.    End
  209.    Begin VBedit BEdit5 
  210.       CellHeight      =   32
  211.       CellWidth       =   22
  212.       CharSet         =   16386
  213.       CombBaseLine    =   24.333
  214.       CombEndHeight   =   8
  215.       CombEndMarker   =   0   'False
  216.       CombHeight      =   4
  217.       FontBold        =   0   'False
  218.       FontItalic      =   0   'False
  219.       FontName        =   "MS Sans Serif"
  220.       FontSize        =   18
  221.       FontStrikethru  =   0   'False
  222.       FontUnderline   =   0   'False
  223.       Height          =   495
  224.       InflateBottom   =   12
  225.       InflateLeft     =   12
  226.       InflateRight    =   12
  227.       InflateTop      =   16
  228.       Left            =   1920
  229.       TabIndex        =   12
  230.       Top             =   2640
  231.       Version         =   268435458
  232.       Width           =   735
  233.    End
  234.    Begin VBedit BEdit4 
  235.       CellHeight      =   32
  236.       CellWidth       =   22
  237.       CharSet         =   16651
  238.       CombBaseLine    =   24.333
  239.       CombEndHeight   =   8
  240.       CombEndMarker   =   0   'False
  241.       CombHeight      =   4
  242.       FontBold        =   0   'False
  243.       FontItalic      =   0   'False
  244.       FontName        =   "MS Sans Serif"
  245.       FontSize        =   18
  246.       FontStrikethru  =   0   'False
  247.       FontUnderline   =   0   'False
  248.       Height          =   495
  249.       InflateBottom   =   12
  250.       InflateLeft     =   12
  251.       InflateRight    =   12
  252.       InflateTop      =   16
  253.       Left            =   1200
  254.       TabIndex        =   9
  255.       Top             =   2040
  256.       Version         =   268435458
  257.       Width           =   5655
  258.    End
  259.    Begin VBedit BEdit3 
  260.       CellHeight      =   32
  261.       CellWidth       =   22
  262.       CombBaseLine    =   24.333
  263.       CombEndHeight   =   8
  264.       CombEndMarker   =   0   'False
  265.       CombHeight      =   4
  266.       FontBold        =   0   'False
  267.       FontItalic      =   0   'False
  268.       FontName        =   "MS Sans Serif"
  269.       FontSize        =   18
  270.       FontStrikethru  =   0   'False
  271.       FontUnderline   =   0   'False
  272.       Height          =   495
  273.       InflateBottom   =   12
  274.       InflateLeft     =   12
  275.       InflateRight    =   12
  276.       InflateTop      =   16
  277.       Left            =   1200
  278.       TabIndex        =   8
  279.       Top             =   1440
  280.       Version         =   268435458
  281.       Width           =   5655
  282.    End
  283.    Begin VBedit BEdit2 
  284.       CellHeight      =   32
  285.       CellWidth       =   22
  286.       CombBaseLine    =   24.333
  287.       CombEndHeight   =   8
  288.       CombEndMarker   =   0   'False
  289.       CombHeight      =   4
  290.       FontBold        =   0   'False
  291.       FontItalic      =   0   'False
  292.       FontName        =   "MS Sans Serif"
  293.       FontSize        =   18
  294.       FontStrikethru  =   0   'False
  295.       FontUnderline   =   0   'False
  296.       Height          =   495
  297.       InflateBottom   =   12
  298.       InflateLeft     =   12
  299.       InflateRight    =   12
  300.       InflateTop      =   16
  301.       Left            =   1200
  302.       TabIndex        =   7
  303.       Top             =   840
  304.       Version         =   268435458
  305.       Width           =   5655
  306.    End
  307.    Begin VBedit BEdit1 
  308.       CellHeight      =   32
  309.       CellWidth       =   22
  310.       CharSet         =   16655
  311.       CombBaseLine    =   24.333
  312.       CombEndHeight   =   8
  313.       CombEndMarker   =   0   'False
  314.       CombHeight      =   4
  315.       FontBold        =   0   'False
  316.       FontItalic      =   0   'False
  317.       FontName        =   "MS Sans Serif"
  318.       FontSize        =   18
  319.       FontStrikethru  =   0   'False
  320.       FontUnderline   =   0   'False
  321.       Height          =   495
  322.       InflateBottom   =   12
  323.       InflateLeft     =   12
  324.       InflateRight    =   12
  325.       InflateTop      =   16
  326.       Left            =   1200
  327.       TabIndex        =   6
  328.       Top             =   240
  329.       Version         =   268435458
  330.       Width           =   5655
  331.    End
  332.    Begin Label Label11 
  333.       Caption         =   "_"
  334.       Height          =   255
  335.       Left            =   4440
  336.       TabIndex        =   22
  337.       Top             =   3960
  338.       Width           =   135
  339.    End
  340.    Begin Label Label10 
  341.       Caption         =   "W. Phone:"
  342.       Height          =   255
  343.       Left            =   840
  344.       TabIndex        =   19
  345.       Top             =   3960
  346.       Width           =   975
  347.    End
  348.    Begin Label Label9 
  349.       Caption         =   "_"
  350.       Height          =   255
  351.       Left            =   4440
  352.       TabIndex        =   17
  353.       Top             =   3360
  354.       Width           =   135
  355.    End
  356.    Begin Label Label8 
  357.       Caption         =   "H. Phone:"
  358.       Height          =   255
  359.       Left            =   840
  360.       TabIndex        =   15
  361.       Top             =   3360
  362.       Width           =   975
  363.    End
  364.    Begin Label Label6 
  365.       Caption         =   "Zip Code:"
  366.       Height          =   255
  367.       Left            =   3240
  368.       TabIndex        =   11
  369.       Top             =   2760
  370.       Width           =   855
  371.    End
  372.    Begin Label Label5 
  373.       Caption         =   "State:"
  374.       Height          =   255
  375.       Left            =   840
  376.       TabIndex        =   10
  377.       Top             =   2760
  378.       Width           =   735
  379.    End
  380.    Begin Label Label4 
  381.       Caption         =   "City:"
  382.       Height          =   255
  383.       Left            =   120
  384.       TabIndex        =   3
  385.       Top             =   2160
  386.       Width           =   495
  387.    End
  388.    Begin Label Label3 
  389.       Caption         =   "Address:"
  390.       Height          =   255
  391.       Left            =   120
  392.       TabIndex        =   2
  393.       Top             =   1560
  394.       Width           =   735
  395.    End
  396.    Begin Label Label2 
  397.       Caption         =   "Last Name:"
  398.       Height          =   255
  399.       Left            =   120
  400.       TabIndex        =   1
  401.       Top             =   960
  402.       Width           =   975
  403.    End
  404.    Begin Label Label1 
  405.       Caption         =   "First Name:"
  406.       Height          =   255
  407.       Left            =   120
  408.       TabIndex        =   0
  409.       Top             =   360
  410.       Width           =   975
  411.    End
  412. End
  413.  
  414. Sub Command1_Click ()
  415.    Form1.CustName.Text = LTrim$(BEdit1.Text + BEdit2.Text)
  416.    Form1.CustAddr.Text = LTrim$(BEdit3.Text)
  417.    Form1.CustCity.Text = LTrim$(BEdit4.Text)
  418.    Form1.CustState.Text = (BEdit5.Text)
  419.    Form1.CustZip.Text = BEdit6.Text
  420.    Form1.HPhone.Text = "(" + Mid$(BEdit7.Text, 1, 3) + ")" + Mid$(BEdit8.Text, 1, 3) + "-" + Mid$(BEdit9.Text, 1, 4)
  421.    Form1.WPhone.Text = "(" + Mid$(BEdit10.Text, 1, 3) + ")" + Mid$(BEdit11.Text, 1, 3) + "-" + Mid$(BEdit12.Text, 1, 4)
  422.    Unload Form6
  423. End Sub
  424.  
  425. Sub Command2_Click ()
  426.    Unload Form6
  427. End Sub
  428.  
  429. Sub Form_Load ()
  430.    Form6.Top = (Screen.Height - Form6.Height) / 2
  431.    Form6.Left = (Screen.Width - Form6.Width) / 2
  432.  
  433.    tmp$ = Form1.CustName.Text
  434.    x = InStr(1, tmp$, " ")
  435.    If x > 0 Then
  436.       BEdit1.Text = Mid$(tmp$, 1, x)
  437.       BEdit2.Text = Mid$(tmp$, x, Len(tmp$))
  438.    Else
  439.       BEdit1.Text = tmp$
  440.       BEdit2.Text = ""
  441.    End If
  442.    
  443.    BEdit3.Text = Form1.CustAddr.Text
  444.    BEdit4.Text = Form1.CustCity.Text
  445.    BEdit5.Text = Form1.CustState.Text
  446.    BEdit6.Text = Form1.CustZip.Text
  447.    
  448.    tmp$ = Form1.HPhone.Text
  449.    BEdit7.Text = Mid$(tmp$, 2, 4)
  450.    BEdit8.Text = Mid$(tmp$, 6, 8)
  451.    BEdit9.Text = Mid$(tmp$, 10, 13)
  452.  
  453.    tmp$ = Form1.WPhone.Text
  454.    BEdit10.Text = Mid$(tmp$, 2, 4)
  455.    BEdit11.Text = Mid$(tmp$, 6, 8)
  456.    BEdit12.Text = Mid$(tmp$, 10, 13)
  457.    
  458. End Sub
  459.  
  460.